www.gusucode.com > AspFaq在线帮助系统 V1.0 > AspFaq在线帮助系统 V1.0\code\admin\Guest_Do.asp

    <!--#include file="Admin_Include.asp"-->
<%
dim types
types=clng(request.QueryString("type"))
select case types
  case 3
    call Guest_Del()
  case else
    response.Write("类型错误！")
	response.End()
end select

'删除留言函数
Sub Guest_Del()
  id=clng(request.QueryString("id"))
  sqlstr="select * from [Guest] where Guest_Id=" & id
  rs.open sqlstr,conn,1,3
  if not rs.eof then
	application.Lock()
	rs.delete()
	application.UnLock()
	response.Write("留言删除成功！")
  else
    response.Write("留言不存在！")
  end if
  rs.close
End Sub
%>